home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Night Owl 6
/
Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso
/
001a
/
ezzcomm.zip
/
ADDUPPCB.T
< prev
next >
Wrap
Text File
|
1991-02-16
|
3KB
|
45 lines
: EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
: Licensed for use at your own risk without fee. Altered versions,
: when distributed, must be clearly marked as altered and accompanied
: by the originals.
: z0 board name, z2 - pcboard, z4 - description, z5 - parameters, if any
sets z1 %item while %z1 split z1 / ""
sets item %z0;split s0 " " "/" "." "~" "~" "";sets z3 %z0 setc z1 \L%item
p?0 if f%n8/%z3.ul p?0 findq "\n%z1," %n8/%z3.ul
if ? lput \U%item lput " is already specified in %n8/%z3.ul\r\n" sets z0 %z3 return
p?0 if f%n7/%z3.lst p?0 findq "\n%z1 " %n7/%z3.lst
if ? lput \U%item lput " is already available at %z4\r\n" sets z0 %z3 return
sets z0 %z3 set z3 x;while !Jz3,yn acceptl1 z3 "Upload %z1 (y/n)? "
ife "iz3,y" goto beg;return
top lput "\E[0m\E[2J\E[37;44mEnter Files to be uploaded to %z4\E[0m\r\n"
next: lput "\r\nThe filename to be uploaded must not include directory delimiters(/). Wildcard"
lput "\r\nspecifications with '?' or '*' may be used only by registered ZCOMM or Pro-Yam.\r\n\n\n" set z1 /
while "%z1>12||Jz1,/, \\" lput "\E[A\E[K\rEnter the Filename to Upload (Enter)=none? \E[12C<\r\n" accept z1 "\E[A\E[43C"
ife !%z1 return;if !f%dirsx/%z1 lput "File %dirsx/%z1 not found.\r\n" goto next
if "Jz1,*?" expand %lib/adduppcb.t %dirsx/%z1;goback next
sets item %z1 sets z3 %z0 setc z1 \L%item
p?0 if f%n8/%z3.ul p?0 findq "\n%z1," %n8/%z3.ul
if ? lput \U%item lput " is already specified in %n8/%z3.ul\r\n" sets z0 %z3 goback next
p?0 if f%n7/%z3.lst p?0 findq "\n%z1 " %n7/%z3.lst
if ? lput \U%item lput " is already available at %z4\r\n" sets z0 %z3 goback next
sets z0 %z3 gosub beg.%lib/adduppcb.t;goback next
beg:
set z3 "" set z6 0 lput "\r\nEnter a description of (\U%item)"
lput "\r\nBegin description with (/) to make upload 'Private'.\r\n"
lput "\r\nFor PCBoard prior to release 14.5, only the first line will be used."
lput "\r\nDescriptions lines must not use semicolons(;) and are limited to 8"
lput "\r\nlines and to a total of about 115 characters.\r\n"
lput "\r\nEnter your text. (Enter) alone to end. (45 chars/line)\r\n"
desc:
set? z7 %item set? z8 %z3 setn z9 125-z7-z8 set z7 ";"
ife "az9>45" set z9 45;else if "az9<6" goto ddes
set z8 "" ife !%z3 set z8 "||\045z7<12"
obey "while \042\045z7>%z9%z8||Jz7,;\042 lput \042\\E[A\\E[K\\r? (\\E[%z9\&C)\\r\\n\042 accept z7 \042\\E[A\\E[3C\042"
:while "%z7>45||Jz7,;" lput "\E[A\E[K\r? (\E[45C)\r\n" accept z7 "\E[A\E[3C"
ife !%z7 goto ddes;setn z6 z6+1 ife %z3 sets z3 "%z3;%z7";else sets z3 %z7
if "az6<8" lput \r\n goback desc
ddes:
ife r nolog closerx;ki;create -+S!i %n8/%z0.ul;echof "\T%item,%z3"
if r w;nolog closerx;lput "\r\nEntry Created in %n8/%z0.ul to upload %item to %z4.\r\n"
if c ki;create -+S!i %n9/ZC%d%ano.LOG